home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1249 / sieve.t < prev    next >
Encoding:
Text File  |  1997-04-18  |  802 b   |  58 lines
  1. %
  2. % "sieve.t" uses the sieve of Eratosthenes to identify
  3. % prime numbers in the range 1..N.
  4. % This method originated in the 3rd century B.C.
  5. %
  6. %   Sample program for the T Interpreter by:
  7. %
  8. %   Stephen R. Schmitt
  9. %   962 Depot Road
  10. %   Boxborough, MA 01719
  11. %
  12.  
  13. const N : int := 5000
  14. var a : array[N] of boolean
  15.  
  16. program
  17.  
  18.     var i, j : int 
  19.  
  20.     init_a
  21.  
  22.     put "working "
  23.  
  24.     for i := 2...floor( N/2 ) do
  25.  
  26.         for j := 2...floor( N/i ) do
  27.  
  28.             a[i*j-1] := false
  29.  
  30.         end for
  31.  
  32.     end for
  33.  
  34.     put ""  
  35.  
  36.     for i := 1 ... N do
  37.  
  38.         if a[i-1] then
  39.  
  40.             put i : 10
  41.  
  42.         end if
  43.  
  44.     end for
  45.  
  46. end program
  47.  
  48. procedure init_a
  49.  
  50.     var i : int
  51.  
  52.     for i := 1 ... N do
  53.  
  54.         a[i-1] := true
  55.  
  56.     end for
  57.  
  58. end procedure